home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Kit PC World De Ampliacion De Windows 95
/
Kit PC World de ampliacion de Windows 95.iso
/
lotus
/
lotus022.dsk
/
SURFNET.MPR
/
SCRIPT
/
ApproachDoc
/
Setup.s
(
.txt
)
< prev
next >
Wrap
Null Bytes Alternating
|
1995-11-13
|
2KB
|
33 lines
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Switchto(Source As Form, View As VIEW)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FORM
Set Source = Bind(Objectname_)
On Event Switchto From Source Call Switchto
End Sub
'++LotusScript Development Environment:2:2:Switchto:1:12
Sub Switchto(Source As Form, View As VIEW)
On Error 11026 Goto NoWebster
Source.Body.fldProxyServer.ReadOnly = False
Source.Body.fldProxyPort.ReadOnly = False
CurrentDocument.Setup.Body.fldProxyServer.Text = CurrentDocument.Webster~ Browser.Body.oleWebster.ProxyServerHTTP
CurrentDocument.Setup.Body.fldProxyPort.Text = Str(CurrentDocument.Webster~ Browser.Body.oleWebster.ProxyPortHTTP)
Source.Body.btnProxySave.Enabled = True
Goto EndLoadPage
NoWebster:
Source.Body.fldProxyServer.ReadOnly = True
Source.Body.fldProxyPort.ReadOnly = True
Source.Body.btnProxySave.Enabled = False
Resume EndLoadPage
EndLoadPage:
End Sub